Program RFEM 6 pro statické výpočty tvoří základ modulárního softwarového systému. Hlavní program RFEM 6 slouží k zadávání konstrukcí, materiálů a zatížení u rovinných i prostorových konstrukčních systémů, které se skládají z desek, stěn, skořepin a prutů. Program umožňuje vytvářet smíšené konstrukce, stejně jako modelovat tělesa a kontaktní prvky.
RSTAB 9 je výkonný program pro analýzu 3D prutových konstrukcí, který statikům pomáhá vyhovět požadavkům moderního stavebního inženýrství a odráží nejnovější trendy v oboru.
Jste často příliš dlouho zaměstnáni výpočtem průřezů? Software Dlubal a samostatný program RSECTION vám usnadní práci stanovením a analýzou napětí pro různé průřezy.
Víte vždy, odkud vítr vane? Ve směru inovace, samozřejmě! S RWIND 2 máte k dispozici program, který využívá digitální větrný tunel pro numerickou simulaci proudění větru. Program toto proudění aplikuje na libovolné geometrie budov a stanoví zatížení větrem působící na jejich povrch.
Hledáte přehled oblastí zatížení sněhem, větrem a zemětřesením? Pak jste zde správně. Mapy oblastí zatížení umožňují rychle a snadno stanovit oblasti zatížení sněhem, větrem a zemětřesením podle Eurokódu a dalších mezinárodních norem.
Chcete si vyzkoušet sílu programů Dlubal? Je to vaše příležitost! S bezplatnou 90denní plnou verzí si můžete všechny naše programy plně otestovat.
Ano, vytvoření uzlových uvolnění pomocí rozhraní COM je možné. Zde je příklad:
Sub nodal_release()Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.model On Error GoTo e Set iApp = GetObject(, "RFEM5.Application") iApp.LockLicense test = iApp.GetModelCountSet iModel = iApp.GetModel(0) Dim iModeldata As RFEM5.iModeldataSet iModeldata = iModel.GetModelData ' for setting a nodal release a member hinge is needed' the object for the axis system could not be the same with the released oneDim nodRel As NodalRelease nodRel.Location = OriginalLocationType nodRel.AxisSystem = LocalFromLine nodRel.AxisSystemFromObjectNo = 2nodRel.Comment = "test nodal release" nodRel.MemberHingeNo = 1 nodRel.NodeNo = 1 nodRel.ReleasedMembers = 1 iModeldata.PrepareModification iModeldata.SetNodalRelease nodRel iModeldata.FinishModification e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source iApp.UnlockLicense
End Sub
Je třeba ještě vzít do úvahy to, že lokální osový systém se nesmí vztahovat na stejné prvky jako ty, které se uvolňují.